100 REM *****************************
110 REM *                           *
120 REM * ANZEIGE EINER INFORMATION *
130 REM *                           *
140 REM *      IN EINEM WINDOW      *
150 REM *                           *
160 REM *****************************
170 REM *                           *
180 REM * START MIT ZUFAELLIGEM BE- *
190 REM * SCHREIBEN DES BILDSCHIRMS *
200 REM * ZUR HERVORHEBUNG DES WIN- *
210 REM * DOWS:'RUN' ODER 'GOTO300' *
220 REM *                           *
230 REM * START OHNE AENDERUNG DES  *
240 REM * BILDSCHIRMS: GOTO 360     *
250 REM *                           *
260 REM * C16,C64,C128(40-Z.-MODUS) *
270 REM *                           *
280 REM *****************************
290 :
300 REM BILDSCHIRM MIT ZUFAELLIGEN
310 REM ZEICHEN BESCHREIBEN:
320 :
330 PRINT CHR$(147);:REM BILDSCHIRM LOESCHEN
340 FOR F=1 TO 950:PRINT CHR$(RND(0)*48+48);:NEXT F:REM 950 ZUFAELLIGE ZEICHEN
350 :
360 REM WINDOW AUSGEBEN
370 REM ===============
380 :
390 REM CURSOR IN 5. ZEILE BEWEGEN
400 :
410 PRINT "";:REM 'CURSOR HOME' AUSFUEHREN
420 FOR F=1 TO 4:PRINT CHR$(17);:NEXT F:REM 4 ZEILEN UEBERSPRINGEN
430 :
440 REM NUN WIRD DAS WINDOW AUSGEGEBEN:
450 :
460 PRINT "[176][192][192][192][192][192][192][192][192][192][192][192][192][174]";
470 PRINT "[221]>> WINDOW <<[221]";
480 PRINT "[171][192][192][192][192][192][192][192][192][192][192][192][192][179]";
490 PRINT "[221]LINKE GR.:23[221]";
500 PRINT "[221]RECHTE G.:36[221]";
510 PRINT "[221]OBERE GR.: 5[221]";
520 PRINT "[221]UNTERE G.:12[221]";
530 PRINT "[173][192][192][192][192][192][192][192][192][192][192][192][192][189]";
540 :
550 GET A$:IF A$="" THEN 550